program C4_2;
var
	p:array[1..100] of record
		lname:string[20];
		fname:string[15];
		res:integer;
		end;
	c:char;
	tmp:string[50];
	i,n:integer;
begin
write('>>> enter N: '); readln(n);
for i:=1 to n do begin
	repeat
	read(c);
	p[i].lname:=p[i].lname+c;
	until c=' ';
	delete(p[i].lname,pos(' '),1);

	repeat
	read(c);
	p[i].fname:=p[i].fname+c;
	until c=' ';
	delete(p[i].fname,pos(' '),1);

	readln(tmp);
	
